#library
## Warning in as.POSIXlt.POSIXct(Sys.time()): unable to identify current timezone 'C':
## please set environment variable 'TZ'
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6 ✔ dplyr 1.0.10
## ✔ tibble 3.1.8 ✔ stringr 1.4.1
## ✔ tidyr 1.2.1 ✔ forcats 0.5.2
## ✔ purrr 0.3.4
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## Warning: package 'vroom' was built under R version 4.2.2
## Warning: package 'gganimate' was built under R version 4.2.2
## Warning: package 'maps' was built under R version 4.2.2
##
## Attaching package: 'maps'
##
## The following object is masked from 'package:purrr':
##
## map
## Warning: package 'cowplot' was built under R version 4.2.2
## Warning: package 'tinytex' was built under R version 4.2.2
#Link to Download the dataset https://platform.who.int/mortality/countries/country-details/MDB/luxembourg #Link to Download the dataset world https://platform.who.int/mortality/themes/theme-details/MDB/noncommunicable-diseases #https://ourworldindata.org/age-structure #Read the dataset and Tidy.
## Rows: 397429 Columns: 10
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (5): Indicator_Code, Indicator_Name, Sex, Age_group_code, Age_Group
## dbl (5): Year, Number, Percentage_of_cause_specific_deaths_out_of_total_deat...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## New names:
## Rows: 53 Columns: 12
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Region_Code, Region_Name, Country_Code, region, Sex, Age_group_code...
## dbl (5): Year, Number, Percentage_of_cause_specific_deaths_out_of_total_deat...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## New names:
## Rows: 291 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (7): Region_Code, Region_Name, Country_Code, region, Sex, Age_group_code...
## dbl (4): Year, Number, Percentage_of_cause_specific_deaths_out_of_total_deat...
## lgl (2): Age_standardized_death_rate_per_100_000_standard_population, ...13
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## New names:
## Rows: 18138 Columns: 4
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (2): region, Code
## dbl (2): Year, estimates_age
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
We want to see how the death rate varies over the years 1960 to 2021. We specifically select deaths for all age groups. During our analysis, we will notice the difference by gender.
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?
We notice that in Luxembourg, the mortality rate.then it decreased until 2020. then this rate decreased in a decreasing way until 2020.This makes sense because in Luxembourg there have been several epidemics that could affect lives. The mortality rate has decreased significantly thanks to more modern methods of care.
We shall now analyze some major causes of mortality in luxembourg and how these causes have affected different age groups.
## # A tibble: 193 × 2
## Indicator_Name n
## <chr> <int>
## 1 All Causes 2703
## 2 Appendicitis 2703
## 3 Birth asphyxia and birth trauma 2703
## 4 Breast cancer 2703
## 5 Cardiovascular diseases 2703
## 6 Cataracts 2703
## 7 Cerebrovascular disease 2703
## 8 Childhood-cluster diseases 2703
## 9 Chronic obstructive pulmonary disease 2703
## 10 Cirrhosis of the liver 2703
## # … with 183 more rows
#Number of deaf by noncommunicatif desease by cat age
#Find the Year , where we have most mortality from Age 54 to 74 in
luxembourg
#Comparing the mortality cause by noncomminicate desase in Luxembourg to other country from 54 to 74
#Life experience in 2000 comparing the rest of the word in 2000(Map) with noncommunication desases
## # A tibble: 18,138 × 4
## region Code Year estimates_age
## <chr> <chr> <dbl> <dbl>
## 1 Afghanistan AFG 1956 78.9
## 2 Afghanistan AFG 1957 79.2
## 3 Afghanistan AFG 1958 79.6
## 4 Afghanistan AFG 1959 79.8
## 5 Afghanistan AFG 1960 80.0
## 6 Afghanistan AFG 1961 80.2
## 7 Afghanistan AFG 1962 80.4
## 8 Afghanistan AFG 1963 80.7
## 9 Afghanistan AFG 1964 81.2
## 10 Afghanistan AFG 1965 82
## # … with 18,128 more rows
#study cas of the mortality by noncommunicate deseas(Regression linear)
#Prediction for 2023